From effbd51e91e566d52ee817f9a5c3208208432830 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Nov 2002 10:43:04 +0000 Subject: [PATCH] (coding-system-eol-type-mnemonic): Move to mule.el. --- lisp/international/mule-util.el | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 99847c3986e..9ed3d8a3880 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -195,7 +195,7 @@ defaults to \"...\"." ;; (("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語") ;; )) ;; (let (ret) -;; (condition-case e +;; (condition-case e ;; (setq ret (apply #'truncate-string-to-width (car test))) ;; (error (setq ret e))) ;; (unless (equal ret (cdr test)) @@ -293,19 +293,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil ;; Coding system related functions. -;;;###autoload -(defun coding-system-eol-type-mnemonic (coding-system) - "Return the string indicating end-of-line format of CODING-SYSTEM." - (let* ((eol-type (coding-system-eol-type coding-system)) - (val (cond ((vectorp eol-type) eol-mnemonic-undecided) - ((eq eol-type 0) eol-mnemonic-unix) - ((eq eol-type 1) eol-mnemonic-dos) - ((eq eol-type 2) eol-mnemonic-mac) - (t "-")))) - (if (stringp val) - val - (char-to-string val)))) - ;;;###autoload (defun coding-system-post-read-conversion (coding-system) "Return the value of CODING-SYSTEM's `post-read-conversion' property." -- 2.30.2